library(tidyverse) library(rjson) source(“compmus.R”)
hier bijvoorbeeld ja
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
library(ggplot2)
library(rjson)
source("compmus.R")
"features/wietske-b-1.json" |> # Change the track
compmus_chroma(norm = "euclidean") |> # Change the norm
ggplot(aes(x = time, y = pc, fill = value)) +
geom_raster() +
scale_y_continuous(
breaks = 0:11,
minor_breaks = NULL,
labels = c(
"C", "C#|Db", "D", "D#|Eb",
"E", "F", "F#|Gb", "G",
"G#|Ab", "A", "A#|Bb", "B"
)
) +
scale_fill_viridis_c(option = "plasma", guide = "none") + # Change the colours?
labs(x = "Time (s)", y = NULL, fill = NULL) +
theme_classic() # Change the theme?